
use "paragraph.dta"

/********************************************************************
Table 4. Descriptive Statistics
*********************************************************************/

estpost summarize communalization othering sc_hdi tpc_hdi ln_no_killed
esttab using "paragraph_descriptive.rtf", cells("count mean sd min max") noobs replace


/********************************************************************
 Table 5. Communalization in news coverage of distant earthquakes. 
*********************************************************************/

eststo clear

/* Column 1 */

logit communalization sc_hdi, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Communalization)") subtitle("Communalization in News Coverage of Distant Earthquakes", margin(small))
estimates store c1, title(column 1)

/* Column 2 */

logit communalization sc_hdi tpc_hdi, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Communalization)") subtitle("Communalization in News Coverage of Distant Earthquakes", margin(small))
estimates store c2, title(column 2)

/* Column 3 */

logit communalization sc_hdi tpc_hdi ln_no_killed, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Communalization)") subtitle("Communalization in News Coverage of Distant Earthquakes", margin(small))
estimates store c3, title(column 3)

/* Building the Table */

esttab c1 c2 c3 using "communalization_para.rtf", b(3) nomtitles replace unstack label nogap onecell se star (+ 0.1 * 0.05 ** 0.01 *** 0.001) pr2


/******************************************************************** 
Table 6. Othering in news coverage of distant earthquakes.
*********************************************************************/

eststo clear

/* Column 1 */

logit othering sc_hdi, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Communalization)") subtitle("Communalization in News Coverage of Distant Earthquakes", margin(small))
estimates store c1, title(column 1)

/* Column 2 */

logit othering sc_hdi tpc_hdi, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Communalization)") subtitle("Communalization in News Coverage of Distant Earthquakes", margin(small))
estimates store c2, title(column 2)

/* Column 3 */

logit othering sc_hdi tpc_hdi ln_no_killed, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Communalization)") subtitle("Communalization in News Coverage of Distant Earthquakes", margin(small))
estimates store c3, title(column 3)

/* Building the Table */

esttab c1 c2 c3 using "othering_para.rtf", b(3) nomtitles replace unstack label nogap onecell se star (+ 0.1 * 0.05 ** 0.01 *** 0.001) pr2



/*******************************************************************
Table 7. Differences in development and communalization.
********************************************************************/

eststo clear

/* Column 1 */

logit communalization diff_hdi, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Communalization)") subtitle("Communalization in News Coverage of Distant Earthquakes", margin(small))
estimates store c1, title(column 1)

/* Column 2 */

logit communalization diff_hdi ln_no_killed, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Communalization)") subtitle("Communalization in News Coverage of Distant Earthquakes", margin(small))
estimates store c2, title(column 2)

/* Building the Table */

esttab c1 c2 using "communalization_diff.rtf", b(3) nomtitles replace unstack label nogap onecell se star (+ 0.1 * 0.05 ** 0.01 *** 0.001) pr2


/*******************************************************************
Table 7. Differences in development and othering.
********************************************************************/

eststo clear

/* Column 1 */

logit othering diff_hdi, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Othering)") subtitle("Othering in News Coverage of Distant Earthquakes", margin(small))
estimates store c1, title(column 1)

/* Column 2 */

logit othering diff_hdi ln_no_killed, r
coefplot, drop(_cons) xline(0, lpattern(dash) lcolor(black)) graphregion(fcolor(white)) lcolor(black) msize(small) graphregion(color(white)) mcolor(black) ciopts(lcolor(black)) xtitle("Pr(Othering)") subtitle("Othering in News Coverage of Distant Earthquakes", margin(small))
estimates store c2, title(column 2)


/* Building the Table */

esttab c1 c2 using "othering_diff.rtf", b(3) nomtitles replace unstack label nogap onecell se star (+ 0.1 * 0.05 ** 0.01 *** 0.001) pr2


/*******************************************************************
Figure A1. Paragraphs with Communalization by Earthquake and Newspaper.
********************************************************************/

graph bar (mean) communalization, over(newspaper, sort(tpc_hdi) descending) by(sc_hdi) nofill


/*******************************************************************
Figure A1. Paragraphs with Othering by Earthquake and Newspaper.
********************************************************************/

graph bar (mean) othering, over(newspaper, sort(tpc_hdi) descending) by(sc_hdi) nofill


save "paragraph.dta", replace
